home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib11.dsk / LIST FORMATTER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  485b  |  6 lines
  1. 0  PRINT  CHR$(4);"OPEN LISTER": PRINT  CHR$(4);"WRITE LISTER": POKE 33,33: LIST 1,5: PRINT "RUN": PRINT  CHR$(4);"CLOSE": TEXT : END 
  2. 1  HOME : INPUT "INPUT FILE - 32 CHAR MAX, 1 CHAR MIN ";A$:A =  LEN(A$): IF A >32  OR A <1 GOTO 1
  3. 2 D$ =  CHR$(13) + CHR$(4): POKE 930,A -1: FOR I = 0 TO A -1: POKE 931 +I, ASC( MID$ (A$,A -I,1)): NEXT 
  4. 3  PRINT D$;"PR#1": PRINT  CHR$(15); CHR$(9);"127N"
  5. 4  PRINT D$;"BRUN LISTER.O"
  6. 5  LIST 6,: PRINT  CHR$(18); CHR$(9);"I";: PRINT D$;"PR#0": DEL 1,5